home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / em7sui_1 / em7sui~1.exe / PopupSurfaceTest.wr_ / PopupSurfaceTest.wr
Text File  |  1998-10-22  |  3KB  |  120 lines
  1. #VRML V2.0 utf8
  2.  
  3. # Copyright Electrohouse 1998
  4.  
  5. # This file may not be copied, modified or distributed
  6. # in any way which violates the ProtoPak licensing 
  7. # agreement established by Electrohouse.  
  8.  
  9. EXTERNPROTO Green [ exposedField SFFloat transparency ] "..\Appearances\PlasticMaterials.wrl#color12"
  10.  
  11. EXTERNPROTO em7_ElevationWireframe [
  12.     exposedField SFColor color
  13.     field SFInt32 xDimension
  14.     field SFFloat xSpacing
  15.     field SFInt32 zDimension
  16.     field SFFloat zSpacing
  17.     field MFFloat height
  18.     field MFInt32 xMask
  19.     field MFInt32 zMask
  20.     eventIn SFInt32 set_xDimension
  21.     eventIn SFFloat set_xSpacing
  22.     eventIn SFInt32 set_zDimension
  23.     eventIn SFFloat set_zSpacing
  24.     eventIn MFFloat set_height
  25.     eventIn MFInt32 set_xMask
  26.     eventIn MFInt32 set_zMask
  27. ] "..\VR_GRAPH.wrl#em7_ElevationWireframe"
  28.  
  29. EXTERNPROTO em7_PopupSurface [
  30.     field SFInt32 xDimension
  31.     field SFFloat xSpacing
  32.     field SFInt32 zDimension
  33.     field SFFloat zSpacing
  34.     field SFFloat radius
  35.     field MFFloat height
  36.     field SFColor color
  37.     field SFFloat transparency
  38.     field SFString defaultPopupText
  39.     field SFFloat popupHeight
  40.     field SFString allignment
  41.     field MFString popupText
  42.     exposedField SFColor textColor
  43.     exposedField SFColor backgroundColor
  44.     exposedField SFColor borderColor
  45.     exposedField SFBool touchEnabled
  46.     eventIn MFString set_popupText
  47.     eventIn MFFloat set_height
  48.     eventOut SFBool isOver
  49.     eventOut SFInt32 mouseOverIndex
  50.     eventOut SFInt32 mouseClickedIndex
  51. ] "..\VR_GRAPH.wrl#em7_PopupSurface"
  52.  
  53. NavigationInfo {
  54.     headlight FALSE
  55. }
  56.  
  57. Background {
  58.     skyColor [
  59.         0 0 0.2
  60.         0.7 0.7 0.8
  61.         1 1 1
  62.     ]
  63.     skyAngle [3, 6]
  64. }
  65.  
  66. em7_ElevationWireframe {
  67.     color 0.4 0.2 0.3
  68.     xDimension 8
  69.     xSpacing 1.3
  70.     zDimension 3
  71.     zSpacing 1
  72.     height [0.1, 0.2, 0.15, 0.4, 1, 1.2, 1, 0.8, 0.3, 0.5, 0.9, 1.4, 1.3, 1.6, 1.2, 1.8, 0.9, 0.7, 0.8, 0.3, 0.5, 0.9, 1.4, 1.3, 1.6, 1.2, 1.8, 0.9, 0.7]
  73. }
  74.  
  75. Transform {
  76.     translation 0 -0.01 0
  77.     children [
  78.         Shape {
  79.             appearance Green { }
  80.             geometry ElevationGrid {
  81.                 xDimension 8
  82.                 xSpacing 1.3
  83.                 zDimension 3
  84.                 zSpacing 1
  85.                 height [0.1, 0.2, 0.15, 0.4, 1, 1.2, 1, 0.8, 0.3, 0.5, 0.9, 1.4, 1.3, 1.6, 1.2, 1.8, 0.9, 0.7, 0.8, 0.3, 0.5, 0.9, 1.4, 1.3, 1.6, 1.2, 1.8, 0.9, 0.7]
  86.                 solid FALSE
  87.                 creaseAngle 6
  88.             }
  89.         }
  90.     ]
  91. }
  92.  
  93. DEF POPUP em7_PopupSurface {
  94.     xDimension 8
  95.     xSpacing 1.3
  96.     zDimension 3
  97.     zSpacing 1
  98.     height [0.1, 0.2, 0.15, 0.4, 1, 1.2, 1, 0.8, 0.3, 0.5, 0.9, 1.4, 1.3, 1.6, 1.2, 1.8, 0.9, 0.7, 0.8, 0.3, 0.5, 0.9, 1.4, 1.3, 1.6, 1.2, 1.8, 0.9, 0.7]
  99.     defaultPopupText "default text"
  100.     transparency 0.9
  101.     radius 0.25
  102.     popupHeight 0.3
  103.     allignment "TOP"
  104.     popupText ["One", "Two", "Three", "Four"]
  105.     textColor 0 0 0
  106.     backgroundColor 0.7 0.4 1
  107. }
  108.  
  109. PointLight {
  110.     location 25 10 25
  111. }
  112.  
  113. PointLight {
  114.     location -25 10 25
  115. }
  116.  
  117.  
  118.     
  119.     
  120.